1 REM ==================================
2 REM    COMMODARES PROBLEM #43-3 :
3 REM     RANDOM ORDER
4 REM    SOLUTION BY
5 REM     JOE MATELLO
6 REM ==================================
10 INPUT"[147]ENTER LOWER LIMIT ";LL : INPUT"ENTER UPPER LIMIT ";UL
20 NE=UL-LL+1 : DIM RN(NE) : FOR I=1 TO NE:RN(I)=LL-1+I : NEXT : FOR I=1 TO NE
30 R1=INT(RND(0)*NE)+1:R2=INT(RND(0)*NE)+1:TE=RN(R1):RN(R1)=RN(R2):RN(R2)=TE
40 NEXT:PRINT:FOR I=1 TO NE:PRINT RN(I);: NEXT